VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BVenta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bEstado"
Option Explicit
Private mvarlPagos As Collection 'local copy
Private mvarnIGV As Double 'local copy
Private mvarnBasImponible As Double 'local copy
Private mvarnCodigo As Integer 'local copy
Private mvarsNumDocumento As String 'local copy
Private mvarsSerDocumento As String 'local copy
Private mvarbEstado As bEstado 'local copy
Friend Property Set bEstado(ByVal vData As bEstado)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bEstado = Form1
    Set mvarbEstado = vData
End Property


Friend Property Get bEstado() As bEstado
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bEstado
    Set bEstado = mvarbEstado
End Property



Friend Property Let sSerDocumento(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sSerDocumento = 5
    mvarsSerDocumento = vData
End Property


Friend Property Get sSerDocumento() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sSerDocumento
    sSerDocumento = mvarsSerDocumento
End Property



Friend Property Let sNumDocumento(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.sNumDocumento = 5
    mvarsNumDocumento = vData
End Property


Friend Property Get sNumDocumento() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.sNumDocumento
    sNumDocumento = mvarsNumDocumento
End Property



Friend Property Let nCodigo(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nCodigo = 5
    mvarnCodigo = vData
End Property


Friend Property Get nCodigo() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nCodigo
    nCodigo = mvarnCodigo
End Property



Friend Property Let nBasImponible(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nBasImponible = 5
    mvarnBasImponible = vData
End Property


Friend Property Get nBasImponible() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nBasImponible
    nBasImponible = mvarnBasImponible
End Property



Friend Property Let nIGV(ByVal vData As Double)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.nIGV = 5
    mvarnIGV = vData
End Property


Friend Property Get nIGV() As Double
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nIGV
    nIGV = mvarnIGV
End Property



Friend Property Set lPagos(ByVal vData As Collection)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.lPagos = Form1
    Set mvarlPagos = vData
End Property


Friend Property Get lPagos() As Collection
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.lPagos
    Set lPagos = mvarlPagos
End Property



